home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / TestFiles / TestGamePort < prev    next >
Encoding:
Text File  |  1998-11-28  |  1.1 KB  |  49 lines
  1. gp <- GamePort new
  2. n  <- 0
  3.  
  4. gp openGamePort: 1 named: 'AbsJoy1'
  5.  
  6. gp setControllerType:   3   "GPCT_ABSJOYSTICK = 3"
  7. gp clearGamePortBuffer
  8. gp setTimeTransition:   600 "60Hz * 10 seconds."
  9. gp setKeyTransition:    3   "Up & down presses."
  10. gp setXDeltaTransition: 1
  11. gp setYDeltaTransition: 1
  12.  
  13. n <- gp getTriggerTime
  14. ('getTriggerTime = ', n) print "When will we time-out?"
  15.  
  16. n <- gp getTriggerKeys
  17. ('Trigger Keys   = ', n) print
  18.  
  19. n <- gp getTriggerXDelta
  20. ('TriggerDeltaX  = ', n) print
  21.  
  22. n <- gp getTriggerYDelta
  23. ('TriggerDeltaY  = ', n) print
  24.  
  25. n <- gp getButtonCode
  26. ('Button Code    = ', n) print
  27.  
  28. n <- gp getQualifiers
  29. ('Qualifiers     = ', n) print
  30.  
  31. n <- gp getXPos
  32. ('X position     = ', n) print
  33.  
  34. n <- gp getYPos
  35. ('Y position     = ', n) print
  36.  
  37. gp waitForButton:    16r68   "wait for the fire button."
  38. gp waitForQualifier: 16r4000 "wait for the fire button."
  39.  
  40. "x & y position only assumes the values -1, 0 & +1 for Absolute Joysticks."
  41. "For x, -1 = left, 0 = no movement, & +1 = right."
  42. "For y, -1 = up,   0 = no movement, & +1 = down."
  43.  
  44. gp waitForXPos: 1
  45. gp waitForYPos: 1
  46.  
  47. gp closeGamePort
  48. 'AbsJoy1 now closed!' print
  49.